/* 
 * Copyright (c) 2009, Giora Kosoi giorak@gmail.com
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of the project nor the
 *       names of its contributors may be used to endorse or promote products
 *       derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY Giora Kosoi ''AS IS'' AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL Giora Kosoi BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <sparrow/tcp_listener.h>
#include <sparrow/reactor.h>
#include <sparrow/variant_headers.h>
#include <sparrow/util.h>
#include <sparrow/errors.h>

TcpListener::TcpListener(Reactor *r, const std::string &config)
    :   Handler(r),
        token_(-1)
{

    WordVector words;
    parse_words(config, words);
    if(words.size() != 2)
    {
        throw_error<std::logic_error>(__FILE__, __LINE__,
                "incorrect number of arguments for TcpListener: config = %s", 
                config.c_str());
    }

    VariantInt32 port(words.at(1));
    port_str_ = words.at(1);

    register_once(this, &TcpListener::once);

    address_.sin_family = AF_INET;
    address_.sin_port = htons((short)port.int32());
    gethostbyname(words.at(0), address_);
}

TcpListener::~TcpListener()
{
}

void TcpListener::handle_input(int fd, uint64_t token)
{
    sockaddr_in addr;
    socklen_t addr_len = sizeof(addr);
    int client = accept(fd, (sockaddr *)&addr, &addr_len);
    if(client == -1)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed accept: error: [%s]", 
                strerror(errno));
    }

    int result = fcntl(client, F_SETFL, O_NONBLOCK);
    if(result == -1)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed fcntl: error: [%s]", 
                strerror(errno));
    }

    VariantSet *v = new VariantSet;
    v->set("server-fd", new VariantFd(client));

    Variant *ip = new VariantIpV4(addr.sin_addr);
    v->set("peer-address", ip);

    Variant *port = new VariantInt32(ntohs(addr.sin_port));
    v->set("peer-port", port);

    Variant *accepted_by = new VariantString("tcp/" + ip->str() + ":" + port_str_);

    v->set("accepted-by", accepted_by);

    push(0, v);
}

void TcpListener::handle_output(int fd, uint64_t token)
{
}

void TcpListener::handle_error(int fd, uint64_t token)
{
}

void TcpListener::handle_timeout(uint64_t token)
{
}

void TcpListener::once(VariantSet *v)
{
    int result = 0;
    fd_ = socket(AF_INET, SOCK_STREAM, 0);
    if(fd_ == -1)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed socket: error: %s", 
                strerror(errno));
    }

    int flag = 1;
    result = setsockopt(fd_, SOL_SOCKET, SO_REUSEADDR, &flag, sizeof(int));
    if(result == -1)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed setsockopt: error: %s", 
                strerror(errno));
    }

    result = bind(fd_, (struct sockaddr *)&address_, sizeof(address_));
    if(result != 0)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed bind: error: %s", 
                strerror(errno));
    }

    result = listen(fd_, SOMAXCONN);
    if(result != 0)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed listen: error: %s", 
                strerror(errno));
    }

    result = fcntl(fd_, F_SETFL, O_NONBLOCK);
    if(result != 0)
    {
        throw_error<std::runtime_error>(__FILE__, __LINE__,
                "failed fcntl: error: [%s]", 
                strerror(errno));
    }

    token_ = get_reactor()->create_token();
    get_reactor()->register_input_handler(fd_, this, token_);
}

